perm filename CYCOMA.LAP[3,LMM] blob
sn#037492 filedate 1973-04-22 generic text, type T, neo UTF8
(DEFPROP CYCOMAFNS (CYCOMAFNS MAXLIST TWICE CARLIST CDRLIST LCARLIST LCDRLIST DIFF PLUSLIST LMASSOC NUMPARTITION→
S CLPARTITIONS CLPARTS CL=PARTS CLDIFF CLCOUNT CLPARTITIONSN CLCREATE CLINSERT CLEXPAND GENRAD GENRADS GENRADLIS→
T GENRADLIST1 GROUPRADS GROUPRADS1 VALENCE GENMOL NUMPARTITIONS* GROUPBY FVPARTITION1 FVPART1 MINLOOPS MAXLOOPS)→
VALUE)
(LAP MAXLIST SUBR)
(PUSH P 1.)
(MOVEI D (QUOTE -99999.) S)
(PUSH P D)
(PUSH P 1.)
(PUSH P (C 0. 0. (QUOTE NIL) 0.))
TAG1 (MOVE 1. -1. P)
(JUMPE 1. TAG4)
(HLRZ@ 1. -1. P)
(MOVE 2. -2. P)
(MOVEM 1. 0. P)
(CALL 2. (E *MAX) S)
(MOVEM 1. -2. P)
TAG2
TAG3 (HRRZ@ 1. -1. P)
(MOVEM 1. -1. P)
(JRST 0. TAG1)
TAG4 (MOVE 1. -2. P)
(SUB P (C 4. 0. 4. 0.))
(POPJ P)
NIL
(LAP TWICE SUBR)
(MOVE 2. 1.)
(JCALL 2. (E *PLUS) S)
NIL
(LAP CARLIST SUBR)
(PUSH P 1.)
(PUSH P 1.)
(PUSH P (C 0. 0. (QUOTE NIL) 0.))
(PUSH P (C 0. 0. (QUOTE NIL) 0.))
TAG1 (MOVE 1. -2. P)
(JUMPE 1. TAG4)
(HLRZ@ 1. -2. P)
(MOVEM 1. -1. P)
(PUSH P (C 0. 0. TAG10 0.))
(PUSH P -1. P)
(HLRZ@ 1. 1.)
(CALL 1. (E NCONS) S)
(PUSH P 1.)
(MOVNI 6. 2.)
(JCALL 14. (E NCONC) S)
TAG10 (MOVEM 1. 0. P)
TAG2
TAG3 (HRRZ@ 1. -2. P)
(MOVEM 1. -2. P)
(JRST 0. TAG1)
TAG4 (MOVE 1. 0. P)
(SUB P (C 4. 0. 4. 0.))
(POPJ P)
NIL
(LAP CDRLIST SUBR)
(PUSH P 1.)
(PUSH P 1.)
(PUSH P (C 0. 0. (QUOTE NIL) 0.))
(PUSH P (C 0. 0. (QUOTE NIL) 0.))
TAG1 (MOVE 1. -2. P)
(JUMPE 1. TAG4)
(HLRZ@ 1. -2. P)
(MOVEM 1. -1. P)
(PUSH P (C 0. 0. TAG10 0.))
(PUSH P -1. P)
(HRRZ@ 1. 1.)
(CALL 1. (E NCONS) S)
(PUSH P 1.)
(MOVNI 6. 2.)
(JCALL 14. (E NCONC) S)
TAG10 (MOVEM 1. 0. P)
TAG2
TAG3 (HRRZ@ 1. -2. P)
(MOVEM 1. -2. P)
(JRST 0. TAG1)
TAG4 (MOVE 1. 0. P)
(SUB P (C 4. 0. 4. 0.))
(POPJ P)
NIL
(LAP LCARLIST SUBR)
(PUSH P 1.)
(PUSH P 1.)
(PUSH P (C 0. 0. (QUOTE NIL) 0.))
(PUSH P (C 0. 0. (QUOTE NIL) 0.))
TAG1 (MOVE 1. -2. P)
(JUMPE 1. TAG4)
(HLRZ@ 1. -2. P)
(MOVEM 1. -1. P)
(PUSH P (C 0. 0. TAG10 0.))
(PUSH P -1. P)
(CALL 1. (E CARLIST) S)
(CALL 1. (E NCONS) S)
(PUSH P 1.)
(MOVNI 6. 2.)
(JCALL 14. (E NCONC) S)
TAG10 (MOVEM 1. 0. P)
TAG2
TAG3 (HRRZ@ 1. -2. P)
(MOVEM 1. -2. P)
(JRST 0. TAG1)
TAG4 (MOVE 1. 0. P)
(SUB P (C 4. 0. 4. 0.))
(POPJ P)
NIL
(LAP LCDRLIST SUBR)
(PUSH P 1.)
(PUSH P 1.)
(PUSH P (C 0. 0. (QUOTE NIL) 0.))
(PUSH P (C 0. 0. (QUOTE NIL) 0.))
TAG1 (MOVE 1. -2. P)
(JUMPE 1. TAG4)
(HLRZ@ 1. -2. P)
(MOVEM 1. -1. P)
(PUSH P (C 0. 0. TAG10 0.))
(PUSH P -1. P)
(CALL 1. (E CDRLIST) S)
(CALL 1. (E NCONS) S)
(PUSH P 1.)
(MOVNI 6. 2.)
(JCALL 14. (E NCONC) S)
TAG10 (MOVEM 1. 0. P)
TAG2
TAG3 (HRRZ@ 1. -2. P)
(MOVEM 1. -2. P)
(JRST 0. TAG1)
TAG4 (MOVE 1. 0. P)
(SUB P (C 4. 0. 4. 0.))
(POPJ P)
NIL
(LAP DIFF SUBR)
(PUSH P 1.)
(PUSH P 2.)
(PUSH P 1.)
(PUSH P (C 0. 0. (QUOTE NIL) 0.))
(PUSH P (C 0. 0. (QUOTE NIL) 0.))
TAG1 (MOVE 1. -2. P)
(JUMPE 1. TAG4)
(HLRZ@ 1. -2. P)
(MOVEM 1. -1. P)
(MOVE 2. -3. P)
(CALL 2. (E MEMBER) S)
(JUMPN 1. TAG3)
(MOVE 2. 0. P)
(MOVE 1. -1. P)
(CALL 2. (E CONS) S)
(MOVEM 1. 0. P)
TAG2
TAG3 (HRRZ@ 1. -2. P)
(MOVEM 1. -2. P)
(JRST 0. TAG1)
TAG4 (MOVE 1. 0. P)
(SUB P (C 5. 0. 5. 0.))
(POPJ P)
NIL
(LAP PLUSLIST SUBR)
(PUSH P 1.)
(PUSH P (C 0. 0. (QUOTE 0.) 0.))
(PUSH P 1.)
(PUSH P (C 0. 0. (QUOTE NIL) 0.))
TAG1 (MOVE 1. -1. P)
(JUMPE 1. TAG4)
(HLRZ@ 1. -1. P)
(MOVE 2. -2. P)
(MOVEM 1. 0. P)
(CALL 2. (E *PLUS) S)
(MOVEM 1. -2. P)
TAG2
TAG3 (HRRZ@ 1. -1. P)
(MOVEM 1. -1. P)
(JRST 0. TAG1)
TAG4 (MOVE 1. -2. P)
(SUB P (C 4. 0. 4. 0.))
(POPJ P)
NIL
(LAP LMASSOC SUBR)
(PUSH P 1.)
(PUSH P 2.)
(PUSH P 3.)
(PUSH P 2.)
(PUSH P (C 0. 0. (QUOTE NIL) 0.))
(PUSH P (C 0. 0. (QUOTE NIL) 0.))
TAG1 (MOVE 1. -2. P)
(JUMPE 1. TAG4)
(HLRZ@ 1. -2. P)
(MOVEM 1. -1. P)
(MOVE 2. -5. P)
(HLRZ@ 1. 1.)
(CALL 2. (E EQUAL) S)
(JUMPE 1. TAG11)
(HRRZ@ 1. -1. P)
(MOVEM 1. -3. P)
(JRST 0. TAG5)
TAG11
TAG2
TAG3 (HRRZ@ 1. -2. P)
(MOVEM 1. -2. P)
(JRST 0. TAG1)
TAG4
TAG5 (MOVE 1. -3. P)
(SUB P (C 6. 0. 6. 0.))
(POPJ P)
NIL
(LAP NUMPARTITIONS SUBR)
(PUSH P 1.)
(PUSH P 2.)
(PUSH P 3.)
(PUSH P 4.)
(MOVEI 2. (QUOTE 1.))
(MOVE 1. -2. P)
(CALL 2. (E EQUAL) S)
(JUMPE 1. TAG9)
(MOVE 2. -3. P)
(MOVE 1. -1. P)
(CALL 2. (E *GREAT) S)
(JUMPN 1. TAG13)
(MOVE 2. -3. P)
(MOVE 1. 0. P)
(CALL 2. (E *LESS) S)
(JUMPE 1. TAG11)
TAG13 (MOVEI 1. (QUOTE NIL))
(JRST 0. TAG10)
TAG11 (MOVE 1. -3. P)
(CALL 1. (E NCONS) S)
(CALL 1. (E NCONS) S)
TAG10 (JRST 0. TAG8)
TAG9 (MOVE 2. -2. P)
(MOVE 1. -3. P)
(CALL 2. (E *QUO) S)
(MOVE 2. 0. P)
(CALL 2. (E *MIN) S)
(PUSH P 1.)
(MOVE 1. -3. P)
(CALL 1. (E SUB1) S)
(MOVE 2. -1. P)
(CALL 2. (E *TIMES) S)
(MOVE 2. 1.)
(MOVE 1. -4. P)
(CALL 2. (E *DIF) S)
(MOVE 2. -2. P)
(CALL 2. (E *MAX) S)
(PUSH P 1.)
(PUSH P (C 0. 0. (QUOTE NIL) 0.))
(PUSH P (C 0. 0. (QUOTE NIL) 0.))
(PUSH P (C 0. 0. (QUOTE NIL) 0.))
TAG1 (MOVE 2. -4. P)
(MOVE 1. -3. P)
(CALL 2. (E *GREAT) S)
(JUMPN 1. TAG7)
(MOVE 2. -3. P)
(MOVE 1. -8. P)
(CALL 2. (E *DIF) S)
(PUSH P 1.)
(MOVE 1. -8. P)
(CALL 1. (E SUB1) S)
(MOVE 4. -6. P)
(MOVE 3. -4. P)
(MOVE 2. 1.)
(POP P 1.)
(CALL 4. (E NUMPARTITIONS) S)
(MOVEM 1. -1. P)
TAG2 (MOVE 1. -1. P)
(JUMPE 1. TAG5)
(HLRZ@ 1. -1. P)
(MOVEM 1. -2. P)
(PUSH P (C 0. 0. TAG24 0.))
(PUSH P -1. P)
(MOVE 2. -5. P)
(CALL 2. (E XCONS) S)
(CALL 1. (E NCONS) S)
(PUSH P 1.)
(MOVNI 6. 2.)
(JCALL 14. (E NCONC) S)
TAG24 (MOVEM 1. 0. P)
TAG3
TAG4 (HRRZ@ 1. -1. P)
(MOVEM 1. -1. P)
(JRST 0. TAG2)
TAG5
TAG6 (MOVEI 2. (QUOTE 1.))
(MOVE 1. -3. P)
(CALL 2. (E *PLUS) S)
(MOVEM 1. -3. P)
(JRST 0. TAG1)
TAG7 (MOVE 1. 0. P)
(SUB P (C 5. 0. 5. 0.))
TAG8 (SUB P (C 4. 0. 4. 0.))
(POPJ P)
NIL
(LAP CLPARTITIONS SUBR)
(PUSH P 1.)
(PUSH P 2.)
(JUMPN 2. TAG25)
(MOVEI 1. (QUOTE NIL))
(CALL 1. (E NCONS) S)
(JRST 0. TAG24)
TAG25 (HRRZ@ 1. 2.)
(JUMPN 1. TAG27)
(MOVE 1. -1. P)
(CALL 1. (E NCONS) S)
(CALL 1. (E NCONS) S)
(JRST 0. TAG24)
TAG27 (HLRZ@ 1. 2.)
(CAIE 1. (QUOTE 0.))
(JRST 0. TAG29)
(HRRZ@ 2. 2.)
(MOVE 1. -1. P)
(CALL 2. (E CLPARTITIONS) S)
(PUSH P 1.)
(PUSH P (C 0. 0. (QUOTE NIL) 0.))
(PUSH P (C 0. 0. (QUOTE NIL) 0.))
(PUSH P (C 0. 0. (QUOTE NIL) 0.))
TAG1 (MOVE 1. -3. P)
(JUMPE 1. TAG34)
(HLRZ@ 1. -3. P)
(MOVEI 2. (QUOTE NIL))
(CALL 2. (E XCONS) S)
(CALL 1. (E NCONS) S)
(MOVEM 1. -2. P)
(MOVE 1. -1. P)
(JUMPE 1. TAG38)
(MOVE 1. -2. P)
(HRRM@ 1. -1. P)
(HRRZ@ 2. -1. P)
(JRST 0. TAG37)
TAG38 (MOVE 2. -2. P)
(MOVEM 2. 0. P)
TAG37 (HRRZ@ 1. -3. P)
(MOVEM 1. -3. P)
(MOVEM 2. -1. P)
(JRST 0. TAG1)
TAG34 (MOVE 1. 0. P)
(SUB P (C 4. 0. 4. 0.))
(JRST 0. TAG24)
TAG29 (HRRZ@ 2. 2.)
(HLRZ@ 2. 2.)
(HLRZ@ 1. 0. P)
(CALL 2. (E EQUAL) S)
(JUMPE 1. TAG41)
(PUSH P (C 0. 0. (QUOTE 1.) 0.))
(HLRZ@ 1. -1. P)
(PUSH P 1.)
(HRRZ@ 1. -2. P)
(MOVEM 1. -2. P)
(PUSH P (C 0. 0. (QUOTE NIL) 0.))
TAG2 (MOVE 1. -3. P)
(JUMPE 1. TAG5)
(MOVE 2. -1. P)
(HLRZ@ 1. -3. P)
(CALL 2. (E EQUAL) S)
(JUMPE 1. TAG5)
(MOVE 1. -2. P)
(CALL 1. (E ADD1) S)
(MOVEM 1. -2. P)
TAG3
TAG4 (HRRZ@ 1. -3. P)
(MOVEM 1. -3. P)
(JRST 0. TAG2)
TAG5 (SUB P (C 1. 0. 1. 0.))
(MOVE 1. -2. P)
(JUMPN 1. TAG53)
(MOVE 3. 0. P)
(MOVE 2. -1. P)
(MOVE 1. -3. P)
(CALL 3. (E CL=PARTS) S)
(JRST 0. TAG42)
TAG53 (MOVE 2. 0. P)
(MOVE 1. -1. P)
(CALL 2. (E *TIMES) S)
(MOVE 2. 1.)
(MOVE 1. -3. P)
(CALL 2. (E CLPARTS) S)
(PUSH P 1.)
(PUSH P (C 0. 0. (QUOTE NIL) 0.))
(PUSH P (C 0. 0. (QUOTE NIL) 0.))
(PUSH P (C 0. 0. (QUOTE NIL) 0.))
(PUSH P (C 0. 0. (QUOTE NIL) 0.))
(PUSH P (C 0. 0. (QUOTE NIL) 0.))
(PUSH P (C 0. 0. (QUOTE NIL) 0.))
(PUSH P (C 0. 0. (QUOTE NIL) 0.))
TAG6 (MOVE 1. -7. P)
(JUMPE 1. TAG16)
(HLRZ@ 1. -7. P)
(MOVE 2. 1.)
(MOVEM 1. -6. P)
(MOVE 1. -11. P)
(CALL 2. (E CLDIFF) S)
(MOVE 2. -10. P)
(CALL 2. (E CLPARTITIONS) S)
(MOVE 3. -8. P)
(MOVE 2. -9. P)
(MOVEM 1. -5. P)
(MOVE 1. -6. P)
(CALL 3. (E CL=PARTS) S)
(MOVEM 1. -3. P)
TAG7 (MOVE 1. -3. P)
(JUMPE 1. TAG13)
(HLRZ@ 1. -3. P)
(MOVE 2. -5. P)
(MOVEM 2. -1. P)
(MOVEM 1. -4. P)
TAG8 (MOVE 1. -1. P)
(JUMPE 1. TAG11)
(HLRZ@ 1. -1. P)
(MOVE 2. 1.)
(MOVEM 1. -2. P)
(MOVE 1. -4. P)
(CALL 2. (E *APPEND) S)
(MOVE 2. 0. P)
(CALL 2. (E CONS) S)
(MOVEM 1. 0. P)
TAG9
TAG10 (HRRZ@ 1. -1. P)
(MOVEM 1. -1. P)
(JRST 0. TAG8)
TAG11
TAG12 (HRRZ@ 1. -3. P)
(MOVEM 1. -3. P)
(JRST 0. TAG7)
TAG13
TAG14
TAG15 (HRRZ@ 1. -7. P)
(MOVEM 1. -7. P)
(JRST 0. TAG6)
TAG16 (MOVE 1. 0. P)
(SUB P (C 8. 0. 8. 0.))
TAG42 (SUB P (C 2. 0. 2. 0.))
(JRST 0. TAG24)
TAG41 (HLRZ@ 2. 0. P)
(MOVE 1. -1. P)
(CALL 2. (E CLPARTS) S)
(PUSH P 1.)
(PUSH P (C 0. 0. (QUOTE NIL) 0.))
(PUSH P (C 0. 0. (QUOTE NIL) 0.))
(PUSH P (C 0. 0. (QUOTE NIL) 0.))
(PUSH P (C 0. 0. (QUOTE NIL) 0.))
TAG17 (MOVE 1. -4. P)
(JUMPE 1. TAG23)
(HLRZ@ 1. -4. P)
(MOVE 2. 1.)
(MOVEM 1. -3. P)
(MOVE 1. -6. P)
(CALL 2. (E CLDIFF) S)
(HRRZ@ 2. -5. P)
(CALL 2. (E CLPARTITIONS) S)
(MOVEM 1. -1. P)
TAG18 (MOVE 1. -1. P)
(JUMPE 1. TAG21)
(HLRZ@ 1. -1. P)
(MOVE 2. -3. P)
(MOVEM 1. -2. P)
(CALL 2. (E XCONS) S)
(MOVE 2. 0. P)
(CALL 2. (E CONS) S)
(MOVEM 1. 0. P)
TAG19
TAG20 (HRRZ@ 1. -1. P)
(MOVEM 1. -1. P)
(JRST 0. TAG18)
TAG21
TAG22 (HRRZ@ 1. -4. P)
(MOVEM 1. -4. P)
(JRST 0. TAG17)
TAG23 (MOVE 1. 0. P)
(SUB P (C 5. 0. 5. 0.))
TAG24 (SUB P (C 2. 0. 2. 0.))
(POPJ P)
NIL
(LAP CLPARTS SUBR)
(PUSH P 1.)
(PUSH P 2.)
(CAIE 2. (QUOTE 0.))
(JRST 0. TAG9)
(MOVEI 1. (QUOTE NIL))
(CALL 1. (E NCONS) S)
(JRST 0. TAG8)
TAG9 (HRRZ@ 1. 1.)
(JUMPN 1. TAG10)
(HLRZ@ 1. -1. P)
(HLRZ@ 1. 1.)
(CALL 2. (E CONS) S)
(CALL 1. (E NCONS) S)
(CALL 1. (E NCONS) S)
(JRST 0. TAG8)
TAG10 (HRRZ@ 1. -1. P)
(CALL 1. (E CLCOUNT) S)
(MOVE 2. 1.)
(MOVE 1. 0. P)
(CALL 2. (E *DIF) S)
(PUSH P 1.)
(PUSH P (C 0. 0. (QUOTE NIL) 0.))
(PUSH P (C 0. 0. (QUOTE NIL) 0.))
(PUSH P (C 0. 0. (QUOTE NIL) 0.))
(PUSH P (C 0. 0. (QUOTE NIL) 0.))
(PUSH P (C 0. 0. (QUOTE NIL) 0.))
(MOVEI 2. (QUOTE 0.))
(CALL 2. (E *GREAT) S)
(JUMPE 1. TAG21)
(MOVEI 1. (QUOTE NIL))
(JRST 0. TAG20)
TAG21 (MOVE 2. -6. P)
(HRRZ@ 1. -7. P)
(CALL 2. (E CLPARTS) S)
TAG20 (HLRZ@ 2. -7. P)
(HRRZ@ 2. 2.)
(MOVEM 1. 0. P)
(MOVE 1. -6. P)
(CALL 2. (E *MIN) S)
(MOVEI 2. (QUOTE 1.))
(MOVEM 1. -3. P)
(MOVE 1. -5. P)
(CALL 2. (E *MAX) S)
(MOVEM 1. -4. P)
TAG1 (MOVE 2. -3. P)
(MOVE 1. -4. P)
(CALL 2. (E *GREAT) S)
(JUMPN 1. TAG7)
(HRRZ@ 1. -7. P)
(MOVE 2. -4. P)
(PUSH P 1.)
(MOVE 1. -7. P)
(CALL 2. (E *DIF) S)
(MOVE 2. 1.)
(POP P 1.)
(CALL 2. (E CLPARTS) S)
(MOVEM 1. -1. P)
TAG2 (MOVE 1. -1. P)
(JUMPE 1. TAG5)
(HLRZ@ 1. -1. P)
(MOVE 2. -4. P)
(MOVEM 1. -2. P)
(HLRZ@ 1. -7. P)
(HLRZ@ 1. 1.)
(CALL 2. (E CONS) S)
(MOVE 2. -2. P)
(CALL 2. (E CONS) S)
(MOVE 2. 0. P)
(CALL 2. (E CONS) S)
(MOVEM 1. 0. P)
TAG3
TAG4 (HRRZ@ 1. -1. P)
(MOVEM 1. -1. P)
(JRST 0. TAG2)
TAG5
TAG6 (MOVEI 2. (QUOTE 1.))
(MOVE 1. -4. P)
(CALL 2. (E *PLUS) S)
(MOVEM 1. -4. P)
(JRST 0. TAG1)
TAG7 (MOVE 1. 0. P)
(SUB P (C 6. 0. 6. 0.))
TAG8 (SUB P (C 2. 0. 2. 0.))
(POPJ P)
NIL
(LAP CL=PARTS SUBR)
(PUSH P 1.)
(PUSH P 2.)
(PUSH P 3.)
(HRRZ@ 1. 1.)
(JUMPN 1. TAG22)
(MOVE 2. 3.)
(HLRZ@ 1. -2. P)
(HLRZ@ 1. 1.)
(CALL 2. (E CONS) S)
(CALL 1. (E NCONS) S)
(MOVEM 1. -2. P)
(PUSH P (C 0. 0. (QUOTE 1.) 0.))
(PUSH P (C 0. 0. (QUOTE NIL) 0.))
TAG1 (MOVE 2. -3. P)
(MOVE 1. -1. P)
(CALL 2. (E *GREAT) S)
(JUMPN 1. TAG4)
(MOVE 2. 0. P)
(MOVE 1. -4. P)
(CALL 2. (E CONS) S)
(MOVEM 1. 0. P)
TAG2
TAG3 (MOVEI 2. (QUOTE 1.))
(MOVE 1. -1. P)
(CALL 2. (E *PLUS) S)
(MOVEM 1. -1. P)
(JRST 0. TAG1)
TAG4 (MOVE 1. 0. P)
(CALL 1. (E NCONS) S)
(SUB P (C 2. 0. 2. 0.))
(JRST 0. TAG21)
TAG22 (MOVE 4. 0. P)
(MOVEI 3. (QUOTE 0.))
(MOVE 2. -1. P)
(HLRZ@ 1. -2. P)
(HRRZ@ 1. 1.)
(CALL 4. (E NUMPARTITIONS) S)
(PUSH P 1.)
(PUSH P (C 0. 0. (QUOTE NIL) 0.))
(PUSH P (C 0. 0. (QUOTE NIL) 0.))
(PUSH P (C 0. 0. (QUOTE NIL) 0.))
(PUSH P (C 0. 0. (QUOTE NIL) 0.))
TAG5 (MOVE 1. -4. P)
(JUMPE 1. TAG20)
(HLRZ@ 1. -4. P)
(MOVEM 1. -3. P)
(HRRZ@ 1. -7. P)
(PUSH P 1.)
(PUSH P -4. P)
(PUSH P (C 0. 0. (QUOTE NIL) 0.))
(PUSH P (C 0. 0. (QUOTE NIL) 0.))
TAG6 (MOVE 1. -2. P)
(JUMPN 1. TAG39)
(JRST 0. TAG9)
TAG39 (HLRZ@ 1. -2. P)
(MOVEM 1. -1. P)
(PUSH P (C 0. 0. TAG41 0.))
(PUSH P -1. P)
(MOVE 2. 1.)
(MOVE 1. -11. P)
(CALL 2. (E *DIF) S)
(CALL 1. (E NCONS) S)
(PUSH P 1.)
(MOVNI 6. 2.)
(JCALL 14. (E NCONC) S)
TAG41 (MOVEM 1. 0. P)
TAG7
TAG8 (HRRZ@ 1. -2. P)
(MOVEM 1. -2. P)
(JRST 0. TAG6)
TAG9 (MOVE 2. 0. P)
(MOVE 1. -3. P)
(CALL 2. (E CLPARTITIONS) S)
(SUB P (C 4. 0. 4. 0.))
(MOVEM 1. -1. P)
TAG10 (MOVE 1. -1. P)
(JUMPE 1. TAG18)
(HLRZ@ 1. -1. P)
(MOVEM 1. -2. P)
(PUSH P -3. P)
(PUSH P 1.)
(PUSH P (C 0. 0. (QUOTE NIL) 0.))
(PUSH P (C 0. 0. (QUOTE NIL) 0.))
(PUSH P (C 0. 0. (QUOTE NIL) 0.))
TAG11 (MOVE 1. -4. P)
(JUMPE 1. TAG15)
(HLRZ@ 1. -4. P)
(MOVEM 1. -2. P)
(MOVE 1. -3. P)
(JUMPE 1. TAG15)
(HLRZ@ 1. -3. P)
(MOVEM 1. -1. P)
(PUSH P (C 0. 0. TAG51 0.))
(PUSH P -1. P)
(MOVE 1. -4. P)
(CAIE 1. (QUOTE 0.))
(JRST 0. TAG53)
(MOVE 1. -3. P)
(JRST 0. TAG52)
TAG53 (MOVE 2. -4. P)
(HLRZ@ 1. -14. P)
(HLRZ@ 1. 1.)
(CALL 2. (E CONS) S)
(MOVE 2. -3. P)
(CALL 2. (E CONS) S)
TAG52 (CALL 1. (E NCONS) S)
(PUSH P 1.)
(MOVNI 6. 2.)
(JCALL 14. (E NCONC) S)
TAG51 (MOVEM 1. 0. P)
TAG12
TAG13 (HRRZ@ 1. -3. P)
(MOVEM 1. -3. P)
TAG14 (HRRZ@ 1. -4. P)
(MOVEM 1. -4. P)
(JRST 0. TAG11)
TAG15 (MOVE 1. 0. P)
(MOVE 2. -5. P)
(CALL 2. (E CONS) S)
(SUB P (C 5. 0. 5. 0.))
(MOVEM 1. 0. P)
TAG16
TAG17 (HRRZ@ 1. -1. P)
(MOVEM 1. -1. P)
(JRST 0. TAG10)
TAG18
TAG19 (HRRZ@ 1. -4. P)
(MOVEM 1. -4. P)
(JRST 0. TAG5)
TAG20 (MOVE 1. 0. P)
(SUB P (C 5. 0. 5. 0.))
TAG21 (SUB P (C 3. 0. 3. 0.))
(POPJ P)
NIL
(LAP CLDIFF SUBR)
(PUSH P 1.)
(PUSH P 2.)
(JUMPN 2. TAG2)
(JRST 0. TAG1)
TAG2 (HLRZ@ 2. 2.)
(HLRZ@ 1. 1.)
(CALL 2. (E EQUAL) S)
(JUMPE 1. TAG4)
(HRRZ@ 2. 0. P)
(HRRZ@ 1. -1. P)
(CALL 2. (E CLDIFF) S)
(JRST 0. TAG1)
TAG4 (HLRZ@ 1. 0. P)
(HLRZ@ 1. 1.)
(HLRZ@ 2. -1. P)
(HLRZ@ 2. 2.)
(CAME 2. 1.)
(JRST 0. TAG5)
(HLRZ@ 1. -1. P)
(HLRZ@ 1. 1.)
(HLRZ@ 2. 0. P)
(HRRZ@ 2. 2.)
(PUSH P 1.)
(HLRZ@ 1. -2. P)
(HRRZ@ 1. 1.)
(CALL 2. (E *DIF) S)
(POP P 2.)
(CALL 2. (E XCONS) S)
(HRRZ@ 2. 0. P)
(PUSH P 1.)
(HRRZ@ 1. -2. P)
(CALL 2. (E CLDIFF) S)
(POP P 2.)
(CALL 2. (E XCONS) S)
(JRST 0. TAG1)
TAG5 (HLRZ@ 1. -1. P)
(MOVE 2. 0. P)
(PUSH P 1.)
(HRRZ@ 1. -2. P)
(CALL 2. (E CLDIFF) S)
(POP P 2.)
(CALL 2. (E XCONS) S)
TAG1 (SUB P (C 2. 0. 2. 0.))
(POPJ P)
NIL
(LAP CLCOUNT SUBR)
(PUSH P 1.)
(PUSH P (C 0. 0. (QUOTE 0.) 0.))
(PUSH P 1.)
(PUSH P (C 0. 0. (QUOTE NIL) 0.))
TAG1 (MOVE 1. -1. P)
(JUMPE 1. TAG4)
(HLRZ@ 1. -1. P)
(MOVE 2. -2. P)
(MOVEM 1. 0. P)
(HRRZ@ 1. 1.)
(CALL 2. (E *PLUS) S)
(MOVEM 1. -2. P)
TAG2
TAG3 (HRRZ@ 1. -1. P)
(MOVEM 1. -1. P)
(JRST 0. TAG1)
TAG4 (MOVE 1. -2. P)
(SUB P (C 4. 0. 4. 0.))
(POPJ P)
NIL
(LAP CLPARTITIONSN SUBR)
(PUSH P 1.)
(PUSH P 2.)
(PUSH P 3.)
(PUSH P 4.)
(PUSH P (C 0. 0. (QUOTE NIL) 0.))
(CALL 1. (E CLCOUNT) S)
(MOVE 4. -1. P)
(MOVE 3. -2. P)
(MOVE 2. -3. P)
(CALL 4. (E NUMPARTITIONS) S)
(PUSH P 1.)
(PUSH P (C 0. 0. (QUOTE NIL) 0.))
TAG1 (MOVE 1. -1. P)
(JUMPE 1. TAG4)
(HLRZ@ 1. -1. P)
(MOVEM 1. 0. P)
(PUSH P (C 0. 0. TAG10 0.))
(PUSH P -3. P)
(MOVE 2. 1.)
(MOVE 1. -8. P)
(CALL 2. (E CLPARTITIONS) S)
(PUSH P 1.)
(MOVNI 6. 2.)
(JCALL 14. (E NCONC) S)
TAG10 (MOVEM 1. -2. P)
TAG2
TAG3 (HRRZ@ 1. -1. P)
(MOVEM 1. -1. P)
(JRST 0. TAG1)
TAG4 (MOVE 1. -2. P)
(SUB P (C 7. 0. 7. 0.))
(POPJ P)
NIL
(LAP CLCREATE SUBR)
(PUSH P 1.)
(PUSH P (C 0. 0. (QUOTE NIL) 0.))
(PUSH P 1.)
(PUSH P (C 0. 0. (QUOTE NIL) 0.))
(PUSH P (C 0. 0. (QUOTE NIL) 0.))
TAG1 (MOVE 1. -2. P)
(JUMPE 1. TAG4)
(HLRZ@ 1. -2. P)
(MOVE 2. -3. P)
(MOVEM 1. -1. P)
(CALL 2. (E CLINSERT) S)
(MOVEM 1. -3. P)
TAG2
TAG3 (HRRZ@ 1. -2. P)
(MOVEM 1. -2. P)
(JRST 0. TAG1)
TAG4 (SUB P (C 3. 0. 3. 0.))
(MOVE 1. 0. P)
(SUB P (C 2. 0. 2. 0.))
(POPJ P)
NIL
(LAP CLINSERT SUBR)
(PUSH P 1.)
(PUSH P 2.)
(JUMPN 2. TAG2)
(MOVEI 2. (QUOTE 1.))
(CALL 2. (E CONS) S)
(CALL 1. (E NCONS) S)
(JRST 0. TAG1)
TAG2 (HLRZ@ 2. 2.)
(HLRZ@ 2. 2.)
(CALL 2. (E EQUAL) S)
(JUMPE 1. TAG4)
(HLRZ@ 1. 0. P)
(PUSH P 1.)
(HRRZ@ 1. 1.)
(CALL 1. (E ADD1) S)
(HRRM@ 1. 0. P)
(MOVE 1. -1. P)
(SUB P (C 1. 0. 1. 0.))
(JRST 0. TAG1)
TAG4 (HLRZ@ 2. 0. P)
(HLRZ@ 2. 2.)
(MOVE 1. -1. P)
(CALL 2. (E LEQ) S)
(JUMPE 1. TAG5)
(MOVEI 2. (QUOTE 1.))
(MOVE 1. -1. P)
(CALL 2. (E CONS) S)
(MOVE 2. 0. P)
(CALL 2. (E CONS) S)
(JRST 0. TAG1)
TAG5 (HRRZ@ 2. 0. P)
(MOVE 1. -1. P)
(CALL 2. (E CLINSERT) S)
(HRRM@ 1. 0. P)
(MOVE 1. 0. P)
TAG1 (SUB P (C 2. 0. 2. 0.))
(POPJ P)
NIL
(LAP CLEXPAND SUBR)
(PUSH P 1.)
(PUSH P 1.)
(PUSH P (C 0. 0. (QUOTE NIL) 0.))
(PUSH P (C 0. 0. (QUOTE NIL) 0.))
(PUSH P (C 0. 0. (QUOTE NIL) 0.))
(PUSH P (C 0. 0. (QUOTE NIL) 0.))
TAG1 (MOVE 1. -4. P)
(JUMPE 1. TAG7)
(HLRZ@ 1. -4. P)
(HRRZ@ 2. 1.)
(MOVEI 3. (QUOTE 1.))
(MOVEM 3. -2. P)
(MOVEM 2. -1. P)
(MOVEM 1. -3. P)
TAG2 (MOVE 2. -1. P)
(MOVE 1. -2. P)
(CALL 2. (E *GREAT) S)
(JUMPN 1. TAG5)
(PUSH P (C 0. 0. TAG14 0.))
(PUSH P -1. P)
(HLRZ@ 1. -5. P)
(CALL 1. (E NCONS) S)
(PUSH P 1.)
(MOVNI 6. 2.)
(JCALL 14. (E NCONC) S)
TAG14 (MOVEM 1. 0. P)
TAG3
TAG4 (MOVEI 2. (QUOTE 1.))
(MOVE 1. -2. P)
(CALL 2. (E *PLUS) S)
(MOVEM 1. -2. P)
(JRST 0. TAG2)
TAG5
TAG6 (HRRZ@ 1. -4. P)
(MOVEM 1. -4. P)
(JRST 0. TAG1)
TAG7 (MOVE 1. 0. P)
(SUB P (C 6. 0. 6. 0.))
(POPJ P)
NIL
(LAP GENRAD SUBR)
(PUSH P 1.)
(HRRZ@ 1. 1.)
(JUMPN 1. TAG14)
(MOVEI 2. (QUOTE 1.))
(HLRZ@ 1. 0. P)
(HRRZ@ 1. 1.)
(CALL 2. (E EQUAL) S)
(JUMPE 1. TAG14)
(MOVEI 3. (QUOTE T) S)
(MOVEI 2. (QUOTE NIL))
(HLRZ@ 1. 0. P)
(HLRZ@ 1. 1.)
(CALL 3. (E PERMRADS) S)
(JRST 0. TAG13)
TAG14 (PUSH P (C 0. 0. (QUOTE NIL) 0.))
(PUSH P -1. P)
(PUSH P (C 0. 0. (QUOTE NIL) 0.))
(PUSH P (C 0. 0. (QUOTE NIL) 0.))
(PUSH P (C 0. 0. (QUOTE NIL) 0.))
(PUSH P (C 0. 0. (QUOTE NIL) 0.))
(PUSH P (C 0. 0. (QUOTE NIL) 0.))
(PUSH P (C 0. 0. (QUOTE NIL) 0.))
TAG1 (MOVE 1. -6. P)
(JUMPE 1. TAG12)
(HLRZ@ 1. -6. P)
(HLRZ@ 1. 1.)
(MOVEI 2. (QUOTE 1.))
(MOVEM 1. -5. P)
(CALL 2. (E CONS) S)
(CALL 1. (E NCONS) S)
(MOVE 2. 1.)
(MOVE 1. -8. P)
(CALL 2. (E CLDIFF) S)
(MOVEM 1. -4. P)
(CALL 1. (E CLCOUNT) S)
(PUSH P 1.)
(MOVE 1. -6. P)
(CALL 1. (E VALENCE) S)
(CALL 1. (E SUB1) S)
(POP P 2.)
(CALL 2. (E *MIN) S)
(MOVEI 2. (QUOTE 1.))
(MOVEM 2. -3. P)
(MOVEM 1. -2. P)
TAG2 (MOVE 2. -2. P)
(MOVE 1. -3. P)
(CALL 2. (E *GREAT) S)
(JUMPN 1. TAG8)
(MOVE 2. -3. P)
(MOVE 1. -4. P)
(CALL 2. (E GENRADS) S)
(MOVEM 1. 0. P)
TAG3 (MOVE 1. 0. P)
(JUMPE 1. TAG6)
(HLRZ@ 1. 0. P)
(MOVEM 1. -1. P)
(PUSH P (C 0. 0. TAG28 0.))
(PUSH P -8. P)
(MOVEI 3. (QUOTE T) S)
(MOVE 2. 1.)
(MOVE 1. -7. P)
(CALL 3. (E PERMRADS) S)
(PUSH P 1.)
(MOVNI 6. 2.)
(JCALL 14. (E NCONC) S)
TAG28 (MOVEM 1. -7. P)
TAG4
TAG5 (HRRZ@ 1. 0. P)
(MOVEM 1. 0. P)
(JRST 0. TAG3)
TAG6
TAG7 (MOVEI 2. (QUOTE 1.))
(MOVE 1. -3. P)
(CALL 2. (E *PLUS) S)
(MOVEM 1. -3. P)
(JRST 0. TAG2)
TAG8
TAG9
TAG10
TAG11 (HRRZ@ 1. -6. P)
(MOVEM 1. -6. P)
(JRST 0. TAG1)
TAG12 (MOVE 1. -7. P)
(SUB P (C 8. 0. 8. 0.))
TAG13 (SUB P (C 1. 0. 1. 0.))
(POPJ P)
NIL
(LAP GENRADS SUBR)
(PUSH P 1.)
(PUSH P 2.)
(JUMPN 1. TAG6)
(CALL 1. (E NCONS) S)
(JRST 0. TAG5)
TAG6 (PUSH P (C 0. 0. (QUOTE NIL) 0.))
(MOVE 1. -2. P)
(CALL 1. (E CLCOUNT) S)
(MOVE 4. 1.)
(MOVEI 3. (QUOTE 1.))
(MOVE 2. -1. P)
(MOVE 1. -2. P)
(CALL 4. (E CLPARTITIONSN) S)
(PUSH P 1.)
(PUSH P (C 0. 0. (QUOTE NIL) 0.))
TAG1 (MOVE 1. -1. P)
(JUMPE 1. TAG4)
(HLRZ@ 1. -1. P)
(MOVEM 1. 0. P)
(PUSH P (C 0. 0. TAG15 0.))
(PUSH P -3. P)
(CALL 1. (E GENRADLIST) S)
(PUSH P 1.)
(MOVNI 6. 2.)
(JCALL 14. (E NCONC) S)
TAG15 (MOVEM 1. -2. P)
TAG2
TAG3 (HRRZ@ 1. -1. P)
(MOVEM 1. -1. P)
(JRST 0. TAG1)
TAG4 (MOVE 1. -2. P)
(SUB P (C 3. 0. 3. 0.))
TAG5 (SUB P (C 2. 0. 2. 0.))
(POPJ P)
NIL
(LAP GENRADLIST SUBR)
(CALL 1. (E CLCREATE) S)
(CALL 1. (E GENRADLIST1) S)
(JCALL 1. (E GROUPRADS) S)
NIL
(LAP GENRADLIST1 SUBR)
(PUSH P 1.)
(PUSH P 1.)
(PUSH P (C 0. 0. (QUOTE NIL) 0.))
(PUSH P (C 0. 0. (QUOTE NIL) 0.))
TAG1 (MOVE 1. -2. P)
(JUMPE 1. TAG4)
(HLRZ@ 1. -2. P)
(MOVEM 1. -1. P)
(PUSH P (C 0. 0. TAG10 0.))
(PUSH P -1. P)
(HLRZ@ 1. 1.)
(CALL 1. (E GENRAD) S)
(HRRZ@ 2. -3. P)
(CALL 2. (E CONS) S)
(CALL 1. (E NCONS) S)
(PUSH P 1.)
(MOVNI 6. 2.)
(JCALL 14. (E NCONC) S)
TAG10 (MOVEM 1. 0. P)
TAG2
TAG3 (HRRZ@ 1. -2. P)
(MOVEM 1. -2. P)
(JRST 0. TAG1)
TAG4 (MOVE 1. 0. P)
(SUB P (C 4. 0. 4. 0.))
(POPJ P)
NIL
(LAP GROUPRADS SUBR)
(PUSH P 1.)
(JUMPN 1. TAG2)
(CALL 1. (E NCONS) S)
(JRST 0. TAG1)
TAG2 (HLRZ@ 1. 0. P)
(HRRZ@ 1. 1.)
(PUSH P 1.)
(HLRZ@ 1. -1. P)
(HLRZ@ 1. 1.)
(PUSH P 1.)
(HRRZ@ 1. -2. P)
(CALL 1. (E GROUPRADS) S)
(MOVE 3. 1.)
(MOVE 2. -1. P)
(POP P 1.)
(CALL 3. (E GROUPRADS1) S)
(SUB P (C 1. 0. 1. 0.))
TAG1 (SUB P (C 1. 0. 1. 0.))
(POPJ P)
NIL
(LAP GROUPRADS1 SUBR)
(PUSH P 1.)
(PUSH P 2.)
(PUSH P 3.)
(CAIE 2. (QUOTE 0.))
(JRST 0. TAG10)
(MOVE 1. 3.)
(JRST 0. TAG9)
TAG10 (PUSH P (C 0. 0. (QUOTE NIL) 0.))
(PUSH P (C 0. 0. (QUOTE NIL) 0.))
(PUSH P (C 0. 0. (QUOTE NIL) 0.))
TAG13
TAG2 (MOVE 1. -5. P)
(JUMPE 1. TAG8)
(MOVE 1. -4. P)
(CALL 1. (E SUB1) S)
(MOVE 3. -3. P)
(MOVE 2. 1.)
(MOVE 1. -5. P)
(CALL 3. (E GROUPRADS1) S)
(MOVEM 1. -1. P)
TAG3 (MOVE 1. -1. P)
(JUMPE 1. TAG6)
(HLRZ@ 1. -1. P)
(MOVEM 1. -2. P)
(PUSH P (C 0. 0. TAG20 0.))
(PUSH P -1. P)
(HLRZ@ 2. -7. P)
(CALL 2. (E XCONS) S)
(CALL 1. (E NCONS) S)
(PUSH P 1.)
(MOVNI 6. 2.)
(JCALL 14. (E NCONC) S)
TAG20 (MOVEM 1. 0. P)
TAG4
TAG5 (HRRZ@ 1. -1. P)
(MOVEM 1. -1. P)
(JRST 0. TAG3)
TAG6
TAG7 (HRRZ@ 1. -5. P)
(MOVEM 1. -5. P)
(JRST 0. TAG2)
TAG8 (MOVE 1. 0. P)
(SUB P (C 3. 0. 3. 0.))
TAG9 (SUB P (C 3. 0. 3. 0.))
(POPJ P)
NIL
(LAP VALENCE SUBR)
(PUSH P 1.)
(CALL 1. (E NUMBERP) S)
(JUMPE 1. TAG2)
(MOVE 1. 0. P)
(JRST 0. TAG1)
TAG2 (MOVE 1. 0. P)
(CALL 1. (E ATOM) S)
(JUMPE 1. TAG3)
(MOVEI 2. (QUOTE VALENCE) S)
(MOVE 1. 0. P)
(CALL 2. (E GET) S)
(JRST 0. TAG1)
TAG3 (MOVE 1. 0. P)
(CALL 1. (E FREEVALENCESIZE) S)
TAG1 (SUB P (C 1. 0. 1. 0.))
(POPJ P)
NIL
(LAP GENMOL SUBR)
(PUSH P 1.)
(PUSH P (C 0. 0. (QUOTE NIL) 0.))
(PUSH P (C 0. 0. (QUOTE NIL) 0.))
(PUSH P (C 0. 0. (QUOTE NIL) 0.))
(CALL 1. (E CLCOUNT) S)
(MOVEI 2. (QUOTE 1.))
(MOVEM 1. -2. P)
(CALL 2. (E EQUAL) S)
(JUMPE 1. TAG27)
(MOVEI 3. (QUOTE NIL))
(MOVEI 2. (QUOTE NIL))
(HLRZ@ 1. -3. P)
(HLRZ@ 1. 1.)
(CALL 3. (E PERMRADS) S)
(JRST 0. TAG23)
TAG27 (MOVEI 2. (QUOTE 2.))
(MOVE 1. -2. P)
(CALL 2. (E REMAINDER) S)
(CAIE 1. (QUOTE 0.))
(JRST 0. TAG28)
(MOVEI 2. (QUOTE 2.))
(MOVE 1. -2. P)
(CALL 2. (E *QUO) S)
(MOVE 3. 1.)
(MOVEI 2. (QUOTE 2.))
(MOVE 1. -3. P)
(CALL 3. (E CL=PARTS) S)
(PUSH P 1.)
(PUSH P (C 0. 0. (QUOTE NIL) 0.))
(PUSH P (C 0. 0. (QUOTE NIL) 0.))
(PUSH P (C 0. 0. (QUOTE NIL) 0.))
(PUSH P (C 0. 0. (QUOTE NIL) 0.))
TAG1 (MOVE 1. -4. P)
(JUMPE 1. TAG7)
(HLRZ@ 1. -4. P)
(MOVEM 1. -3. P)
(CALL 1. (E GENRADLIST) S)
(MOVEM 1. -1. P)
TAG2 (MOVE 1. -1. P)
(JUMPE 1. TAG5)
(HLRZ@ 1. -1. P)
(MOVEI 3. (QUOTE NIL))
(MOVE 2. 1.)
(MOVEM 1. -2. P)
(MOVEI 1. (QUOTE NIL))
(CALL 3. (E PERMRADS) S)
(MOVE 2. -6. P)
(CALL 2. (E *APPEND) S)
(MOVEM 1. -6. P)
TAG3
TAG4 (HRRZ@ 1. -1. P)
(MOVEM 1. -1. P)
(JRST 0. TAG2)
TAG5
TAG6 (HRRZ@ 1. -4. P)
(MOVEM 1. -4. P)
(JRST 0. TAG1)
TAG7 (MOVEI 1. (QUOTE 3.))
(MOVEM 1. -5. P)
(SUB P (C 5. 0. 5. 0.))
(JRST 0. TAG26)
TAG28 (MOVEI 1. (QUOTE 2.))
(MOVEM 1. 0. P)
TAG26 (MOVE 1. -2. P)
(CALL 1. (E SUB1) S)
(MOVEM 1. -2. P)
(PUSH P -3. P)
(PUSH P (C 0. 0. (QUOTE NIL) 0.))
(PUSH P (C 0. 0. (QUOTE NIL) 0.))
(PUSH P (C 0. 0. (QUOTE NIL) 0.))
(PUSH P (C 0. 0. (QUOTE NIL) 0.))
(PUSH P (C 0. 0. (QUOTE NIL) 0.))
(PUSH P (C 0. 0. (QUOTE NIL) 0.))
(PUSH P (C 0. 0. (QUOTE NIL) 0.))
(PUSH P (C 0. 0. (QUOTE NIL) 0.))
(PUSH P (C 0. 0. (QUOTE NIL) 0.))
(PUSH P (C 0. 0. (QUOTE NIL) 0.))
TAG8 (MOVE 1. -10. P)
(JUMPE 1. TAG22)
(HLRZ@ 1. -10. P)
(HLRZ@ 2. 1.)
(MOVEM 2. -8. P)
(MOVEI 2. (QUOTE 1.))
(MOVEM 1. -9. P)
(MOVE 1. -8. P)
(CALL 2. (E CONS) S)
(CALL 1. (E NCONS) S)
(MOVE 2. 1.)
(MOVE 1. -14. P)
(CALL 2. (E CLDIFF) S)
(MOVEM 1. -7. P)
(MOVE 1. -8. P)
(CALL 1. (E VALENCE) S)
(MOVE 2. -13. P)
(CALL 2. (E *MIN) S)
(MOVE 2. -11. P)
(MOVEM 2. -6. P)
(MOVEM 1. -5. P)
TAG9 (MOVE 2. -5. P)
(MOVE 1. -6. P)
(CALL 2. (E *GREAT) S)
(JUMPN 1. TAG18)
(MOVEI 2. (QUOTE 2.))
(MOVE 1. -13. P)
(CALL 2. (E *QUO) S)
(MOVE 4. 1.)
(MOVEI 3. (QUOTE 1.))
(MOVE 2. -6. P)
(MOVE 1. -7. P)
(CALL 4. (E CLPARTITIONSN) S)
(MOVEM 1. -3. P)
TAG10 (MOVE 1. -3. P)
(JUMPE 1. TAG16)
(HLRZ@ 1. -3. P)
(MOVEM 1. -4. P)
(CALL 1. (E GENRADLIST) S)
(MOVEM 1. -1. P)
TAG11 (MOVE 1. -1. P)
(JUMPE 1. TAG14)
(HLRZ@ 1. -1. P)
(MOVEM 1. -2. P)
(PUSH P (C 0. 0. TAG48 0.))
(MOVEI 3. (QUOTE NIL))
(MOVE 2. 1.)
(MOVE 1. -9. P)
(CALL 3. (E PERMRADS) S)
(PUSH P 1.)
(PUSH P -14. P)
(MOVNI 6. 2.)
(JCALL 14. (E NCONC) S)
TAG48 (MOVEM 1. -12. P)
TAG12
TAG13 (HRRZ@ 1. -1. P)
(MOVEM 1. -1. P)
(JRST 0. TAG11)
TAG14
TAG15 (HRRZ@ 1. -3. P)
(MOVEM 1. -3. P)
(JRST 0. TAG10)
TAG16
TAG17 (MOVEI 2. (QUOTE 1.))
(MOVE 1. -6. P)
(CALL 2. (E *PLUS) S)
(MOVEM 1. -6. P)
(JRST 0. TAG9)
TAG18
TAG19
TAG20
TAG21 (HRRZ@ 1. -10. P)
(MOVEM 1. -10. P)
(JRST 0. TAG8)
TAG22 (SUB P (C 11. 0. 11. 0.))
(MOVE 1. -1. P)
TAG23 (SUB P (C 4. 0. 4. 0.))
(POPJ P)
NIL
(LAP NUMPARTITIONS* SUBR)
(PUSH P 1.)
(PUSH P 2.)
(PUSH P 3.)
(PUSH P 4.)
(HRRZ@ 1. 4.)
(JUMPN 1. TAG14)
(HLRZ@ 4. 3.)
(EXCH 3. 2.)
(HLRZ@ 2. 0. P)
(MOVE 1. -3. P)
(CALL 4. (E NUMPARTITIONS) S)
(JRST 0. TAG13)
TAG14 (HLRZ@ 1. -1. P)
(PUSH P (C 0. 0. (QUOTE NIL) 0.))
(PUSH P (C 0. 0. (QUOTE NIL) 0.))
(PUSH P (C 0. 0. (QUOTE NIL) 0.))
(PUSH P (C 0. 0. (QUOTE NIL) 0.))
(PUSH P (C 0. 0. (QUOTE NIL) 0.))
(PUSH P 1.)
(HRRZ@ 1. -6. P)
(CALL 1. (E PLUSLIST) S)
(MOVE 2. 1.)
(MOVE 1. -9. P)
(CALL 2. (E *DIF) S)
(HLRZ@ 2. -6. P)
(CALL 2. (E *QUO) S)
(POP P 2.)
(CALL 2. (E *MIN) S)
(MOVEM 1. -3. P)
(PUSH P -8. P)
(PUSH P -8. P)
(HLRZ@ 1. -7. P)
(CALL 1. (E SUB1) S)
(HLRZ@ 2. -8. P)
(CALL 2. (E *TIMES) S)
(HRRZ@ 2. -8. P)
(HRRZ@ 3. -7. P)
(PUSH P 3.)
(PUSH P 2.)
(PUSH P 1.)
(PUSH P (C 0. 0. (QUOTE NIL) 0.))
(PUSH P (C 0. 0. (QUOTE NIL) 0.))
TAG1 (MOVE 1. -3. P)
(JUMPN 1. TAG25)
(JRST 0. TAG5)
TAG25 (HLRZ@ 1. -3. P)
(MOVEM 1. -1. P)
(MOVE 1. -4. P)
(JUMPN 1. TAG28)
(JRST 0. TAG5)
TAG28 (HLRZ@ 1. -4. P)
(MOVE 2. -1. P)
(MOVEM 1. 0. P)
(CALL 2. (E *TIMES) S)
(MOVE 2. -2. P)
(CALL 2. (E *PLUS) S)
(MOVEM 1. -2. P)
TAG2
TAG3 (HRRZ@ 1. -4. P)
(MOVEM 1. -4. P)
TAG4 (HRRZ@ 1. -3. P)
(MOVEM 1. -3. P)
(JRST 0. TAG1)
TAG5 (MOVE 2. -2. P)
(MOVE 1. -6. P)
(CALL 2. (E *DIF) S)
(MOVE 2. -5. P)
(CALL 2. (E *MAX) S)
(CALL 1. (E FIX+) S)
(SUB P (C 7. 0. 7. 0.))
(MOVEM 1. -4. P)
TAG6 (MOVE 2. -3. P)
(MOVE 1. -4. P)
(CALL 2. (E *GREAT) S)
(JUMPN 1. TAG12)
(MOVEI 2. (QUOTE 1.))
(HLRZ@ 1. -5. P)
(CALL 2. (E EQUAL) S)
(JUMPE 1. TAG32)
(MOVE 2. -4. P)
(MOVE 1. -8. P)
(CALL 2. (E *DIF) S)
(HRRZ@ 4. -5. P)
(HRRZ@ 3. -6. P)
(MOVEI 2. (QUOTE 1.))
(CALL 4. (E NUMPARTITIONS*) S)
(JRST 0. TAG31)
TAG32 (MOVE 2. -4. P)
(MOVE 1. -8. P)
(CALL 2. (E *DIF) S)
(PUSH P 1.)
(HLRZ@ 1. -6. P)
(CALL 1. (E SUB1) S)
(HRRZ@ 2. -6. P)
(CALL 2. (E CONS) S)
(MOVE 4. 1.)
(MOVE 3. -7. P)
(MOVE 2. -5. P)
(POP P 1.)
(CALL 4. (E NUMPARTITIONS*) S)
TAG31 (MOVEM 1. -1. P)
TAG7 (MOVE 1. -1. P)
(JUMPE 1. TAG10)
(HLRZ@ 1. -1. P)
(MOVE 2. -4. P)
(MOVEM 1. -2. P)
(CALL 2. (E XCONS) S)
(MOVE 2. 0. P)
(CALL 2. (E CONS) S)
(MOVEM 1. 0. P)
TAG8
TAG9 (HRRZ@ 1. -1. P)
(MOVEM 1. -1. P)
(JRST 0. TAG7)
TAG10
TAG11 (MOVEI 2. (QUOTE 1.))
(MOVE 1. -4. P)
(CALL 2. (E *PLUS) S)
(MOVEM 1. -4. P)
(JRST 0. TAG6)
TAG12 (MOVE 1. 0. P)
(SUB P (C 5. 0. 5. 0.))
TAG13 (SUB P (C 4. 0. 4. 0.))
(POPJ P)
NIL
(LAP GROUPBY SUBR)
(PUSH P 1.)
(PUSH P 2.)
(MOVE 1. 2.)
(JUMPE 1. TAG1)
(HRRZ@ 2. 0. P)
(MOVE 1. -1. P)
(CALL 2. (E GROUPBY) S)
(PUSH P 1.)
(PUSH P (C 0. 0. (QUOTE NIL) 0.))
(PUSH P (C 0. 0. (QUOTE NIL) 0.))
(HLRZ@ 1. -3. P)
(CALLF@ 1. -4. P)
(MOVEI 3. (QUOTE NIL))
(MOVE 2. -2. P)
(MOVEM 1. 0. P)
(CALL 3. (E LMASSOC) S)
(MOVEM 1. -1. P)
(JUMPN 1. TAG8)
(HLRZ@ 1. -3. P)
(CALL 1. (E NCONS) S)
(MOVE 2. 0. P)
(CALL 2. (E XCONS) S)
(MOVE 2. -2. P)
(CALL 2. (E CONS) S)
(JRST 0. TAG4)
TAG8 (PUSH P (C 0. 0. TAG12 0.))
(PUSH P -2. P)
(HLRZ@ 1. -5. P)
(CALL 1. (E NCONS) S)
(PUSH P 1.)
(MOVNI 6. 2.)
(JCALL 14. (E NCONC) S)
TAG12 (MOVE 1. -2. P)
(JRST 0. TAG4)
TAG4 (SUB P (C 3. 0. 3. 0.))
TAG1 (SUB P (C 2. 0. 2. 0.))
(POPJ P)
NIL
(LAP FVPARTITION1 SUBR)
(PUSH P 1.)
(PUSH P 2.)
(PUSH P 3.)
(JUMPN 2. TAG18)
(MOVEI 1. (QUOTE NIL))
(CALL 1. (E NCONS) S)
(JRST 0. TAG17)
TAG18 (PUSH P (C 0. 0. (QUOTE NIL) 0.))
(PUSH P (C 0. 0. (QUOTE 0.) 0.))
(HRRZ@ 1. -3. P)
(PUSH P 1.)
(MOVE 1. -3. P)
(CALL 1. (E ADD1) S)
(PUSH P 1.)
(PUSH P (C 0. 0. (QUOTE NIL) 0.))
TAG1 (MOVE 1. -2. P)
(JUMPE 1. TAG5)
(HLRZ@ 1. -2. P)
(MOVEM 1. 0. P)
(MOVEI 2. (QUOTE 9999999.) S)
(MOVE 1. -1. P)
(CALL 2. (E *GREAT) S)
(JUMPN 1. TAG5)
(MOVE 2. 0. P)
(MOVE 1. -1. P)
(CALL 2. (E *TIMES) S)
(MOVE 2. -3. P)
(CALL 2. (E *PLUS) S)
(MOVEM 1. -3. P)
TAG2
TAG3 (MOVEI 2. (QUOTE 1.))
(MOVE 1. -1. P)
(CALL 2. (E *PLUS) S)
(MOVEM 1. -1. P)
TAG4 (HRRZ@ 1. -2. P)
(MOVEM 1. -2. P)
(JRST 0. TAG1)
TAG5 (MOVE 1. -3. P)
(SUB P (C 4. 0. 4. 0.))
(MOVEM 1. 0. P)
(MOVE 2. -1. P)
(HLRZ@ 1. -2. P)
(CALL 2. (E *TIMES) S)
(MOVE 2. -3. P)
(CALL 2. (E *MIN) S)
(MOVE 2. 0. P)
(PUSH P 1.)
(MOVE 1. -4. P)
(CALL 2. (E *DIF) S)
(MOVEI 2. (QUOTE 0.))
(CALL 2. (E *MAX) S)
(PUSH P 1.)
(PUSH P (C 0. 0. (QUOTE NIL) 0.))
(PUSH P (C 0. 0. (QUOTE NIL) 0.))
(PUSH P (C 0. 0. (QUOTE NIL) 0.))
(PUSH P (C 0. 0. (QUOTE NIL) 0.))
(PUSH P (C 0. 0. (QUOTE NIL) 0.))
(PUSH P (C 0. 0. (QUOTE NIL) 0.))
TAG6 (MOVE 2. -7. P)
(MOVE 1. -6. P)
(CALL 2. (E *GREAT) S)
(JUMPN 1. TAG16)
(MOVE 2. -6. P)
(MOVE 1. -11. P)
(CALL 2. (E *DIF) S)
(PUSH P 1.)
(HRRZ@ 1. -11. P)
(PUSH P 1.)
(MOVE 1. -11. P)
(CALL 1. (E ADD1) S)
(MOVE 3. 1.)
(POP P 2.)
(POP P 1.)
(CALL 3. (E FVPARTITION1) S)
(MOVE 3. -9. P)
(HLRZ@ 2. -10. P)
(MOVEM 1. -5. P)
(MOVE 1. -6. P)
(CALL 3. (E FVPART1) S)
(MOVEM 1. -3. P)
TAG7 (MOVE 1. -3. P)
(JUMPE 1. TAG13)
(HLRZ@ 1. -3. P)
(MOVE 2. -5. P)
(MOVEM 2. -1. P)
(MOVEM 1. -4. P)
TAG8 (MOVE 1. -1. P)
(JUMPE 1. TAG11)
(HLRZ@ 1. -1. P)
(MOVE 2. -4. P)
(MOVEM 1. -2. P)
(CALL 2. (E XCONS) S)
(MOVE 2. 0. P)
(CALL 2. (E CONS) S)
(MOVEM 1. 0. P)
TAG9
TAG10 (HRRZ@ 1. -1. P)
(MOVEM 1. -1. P)
(JRST 0. TAG8)
TAG11
TAG12 (HRRZ@ 1. -3. P)
(MOVEM 1. -3. P)
(JRST 0. TAG7)
TAG13
TAG14
TAG15 (MOVEI 2. (QUOTE 1.))
(MOVE 1. -6. P)
(CALL 2. (E *PLUS) S)
(MOVEM 1. -6. P)
(JRST 0. TAG6)
TAG16 (MOVE 1. 0. P)
(SUB P (C 9. 0. 9. 0.))
TAG17 (SUB P (C 3. 0. 3. 0.))
(POPJ P)
NIL
(LAP FVPART1 SUBR)
(PUSH P 1.)
(PUSH P 2.)
(PUSH P 3.)
(CAIE 3. (QUOTE 0.))
(JRST 0. TAG9)
(MOVEI 1. (QUOTE NIL))
(CALL 1. (E NCONS) S)
(JRST 0. TAG8)
TAG9 (MOVE 2. 0. P)
(MOVE 1. -2. P)
(CALL 2. (E *QUO) S)
(MOVE 2. -1. P)
(CALL 2. (E *MIN) S)
(PUSH P 1.)
(MOVE 1. -1. P)
(CALL 1. (E SUB1) S)
(MOVE 2. -2. P)
(CALL 2. (E *TIMES) S)
(MOVE 2. 1.)
(MOVE 1. -3. P)
(CALL 2. (E *DIF) S)
(MOVEI 2. (QUOTE 0.))
(CALL 2. (E *MAX) S)
(PUSH P 1.)
(PUSH P (C 0. 0. (QUOTE NIL) 0.))
(PUSH P (C 0. 0. (QUOTE NIL) 0.))
(PUSH P (C 0. 0. (QUOTE NIL) 0.))
TAG1 (MOVE 2. -4. P)
(MOVE 1. -3. P)
(CALL 2. (E *GREAT) S)
(JUMPN 1. TAG7)
(MOVE 2. -5. P)
(MOVE 1. -3. P)
(CALL 2. (E *TIMES) S)
(MOVE 2. 1.)
(MOVE 1. -7. P)
(CALL 2. (E *DIF) S)
(MOVE 2. -3. P)
(PUSH P 1.)
(MOVE 1. -7. P)
(CALL 2. (E *DIF) S)
(PUSH P 1.)
(MOVE 1. -7. P)
(CALL 1. (E SUB1) S)
(MOVE 3. 1.)
(POP P 2.)
(POP P 1.)
(CALL 3. (E FVPART1) S)
(MOVEM 1. -1. P)
TAG2 (MOVE 1. -1. P)
(JUMPE 1. TAG5)
(HLRZ@ 1. -1. P)
(MOVE 2. -3. P)
(MOVEM 1. -2. P)
(CALL 2. (E XCONS) S)
(MOVE 2. 0. P)
(CALL 2. (E CONS) S)
(MOVEM 1. 0. P)
TAG3
TAG4 (HRRZ@ 1. -1. P)
(MOVEM 1. -1. P)
(JRST 0. TAG2)
TAG5
TAG6 (MOVEI 2. (QUOTE 1.))
(MOVE 1. -3. P)
(CALL 2. (E *PLUS) S)
(MOVEM 1. -3. P)
(JRST 0. TAG1)
TAG7 (MOVE 1. 0. P)
(SUB P (C 5. 0. 5. 0.))
TAG8 (SUB P (C 3. 0. 3. 0.))
(POPJ P)
NIL
(LAP MINLOOPS SUBR)
(PUSH P 1.)
(MOVEI 1. (QUOTE 0.))
(PUSH P 1.)
(PUSH P 1.)
(HRRZ@ 1. -2. P)
(PUSH P (C 0. 0. (QUOTE 3.) 0.))
(PUSH P 1.)
(PUSH P (C 0. 0. (QUOTE NIL) 0.))
(PUSH P (C 0. 0. (QUOTE NIL) 0.))
TAG1 (MOVE 1. -2. P)
(JUMPE 1. TAG5)
(HLRZ@ 1. -2. P)
(MOVEM 1. -1. P)
(MOVEI 2. (QUOTE 999999.) S)
(MOVE 1. -3. P)
(CALL 2. (E *GREAT) S)
(JUMPN 1. TAG5)
(MOVE 1. -1. P)
(CAIN 1. (QUOTE 0.))
(JRST 0. TAG3)
(MOVE 2. -4. P)
(MOVE 1. -3. P)
(CALL 2. (E *GREAT) S)
(JUMPE 1. TAG17)
(MOVE 1. -3. P)
(MOVEM 1. -4. P)
TAG17 (MOVE 2. -3. P)
(MOVE 1. -1. P)
(CALL 2. (E *TIMES) S)
(MOVE 2. -5. P)
(CALL 2. (E *PLUS) S)
(MOVEM 1. -5. P)
TAG2
TAG3 (MOVEI 2. (QUOTE 1.))
(MOVE 1. -3. P)
(CALL 2. (E *PLUS) S)
(MOVEM 1. -3. P)
TAG4 (HRRZ@ 1. -2. P)
(MOVEM 1. -2. P)
(JRST 0. TAG1)
TAG5 (SUB P (C 4. 0. 4. 0.))
(MOVE 2. -1. P)
(MOVE 1. 0. P)
(CALL 2. (E *DIF) S)
(MOVEI 2. (QUOTE 2.))
(CALL 2. (E *QUO) S)
(MOVE 2. 1.)
(MOVEI 1. (QUOTE 0.))
(SUB P (C 3. 0. 3. 0.))
(JCALL 2. (E *MAX) S)
NIL
(LAP MAXLOOPS SUBR)
(PUSH P 1.)
(HLRZ@ 1. 1.)
(PUSH P 1.)
(PUSH P (C 0. 0. (QUOTE 0.) 0.))
(HRRZ@ 1. -2. P)
(HRRZ@ 1. 1.)
(PUSH P (C 0. 0. (QUOTE 2.) 0.))
(PUSH P 1.)
(PUSH P (C 0. 0. (QUOTE NIL) 0.))
TAG1 (MOVE 1. -1. P)
(JUMPN 1. TAG10)
(JRST 0. TAG5)
TAG10 (HLRZ@ 1. -1. P)
(MOVEM 1. 0. P)
(MOVEI 2. (QUOTE 99999.) S)
(MOVE 1. -2. P)
(CALL 2. (E *GREAT) S)
(JUMPE 1. TAG13)
(JRST 0. TAG5)
TAG13 (MOVE 2. 0. P)
(MOVEI 1. (QUOTE 0.5) S)
(CALL 2. (E *TIMES) S)
(MOVE 2. -2. P)
(CALL 2. (E *TIMES) S)
(MOVE 2. -3. P)
(CALL 2. (E *PLUS) S)
(MOVEM 1. -3. P)
TAG2
TAG3 (MOVEI 2. (QUOTE 1.))
(MOVE 1. -2. P)
(CALL 2. (E *PLUS) S)
(MOVEM 1. -2. P)
TAG4 (HRRZ@ 1. -1. P)
(MOVEM 1. -1. P)
(JRST 0. TAG1)
TAG5 (MOVE 1. -3. P)
(CALL 1. (E FIX+) S)
(MOVE 2. -4. P)
(SUB P (C 6. 0. 6. 0.))
(JCALL 2. (E *MIN) S)
NIL